home *** CD-ROM | disk | FTP | other *** search
/ Aminet 24 / Aminet 24 (1998)(GTI - Schatztruhe)[!][Apr 1998].iso / Aminet / comm / misc / WarTrans.lha / Receive < prev    next >
Encoding:
Text File  |  1998-02-28  |  686 b   |  30 lines
  1. BEGINNING:
  2.  OPEN "com1:9600,n,8,1" FOR INPUT AS #1
  3.  INPUT "Enter Filename to create: " ,FileName$
  4.    IF FileName$ = "" THEN GOTO QUESTION
  5.  OPEN FileName$ FOR OUTPUT AS #2
  6.  INPUT "Enter Length of file to Transfer (Given by Send program): ", LENGTH
  7.    IF LENGTH = 0 GOTO QUESTION
  8.  PRINT "Listening to Serial Port "
  9.  PRINT #2,INPUT$(LENGTH,#1); 
  10.  GOTO QUESTION
  11.    
  12. QUESTION:
  13.  CLOSE #1
  14.  CLOSE #2
  15.  INPUT "Do you want to Trasfer more files? (Y/N) " ,ANSWER$ 
  16.  ANSER$ = LEFT$(UCASE$(ANSWER$),1)
  17.  IF ANSER$ = "Y" THEN 
  18.    GOTO BEGINNING
  19.  ELSEIF ANSER$ = "N" THEN 
  20.    GOTO FINISH
  21.  ELSE
  22.    GOTO QUESTION
  23.  END IF
  24.  
  25.  
  26. FINISH:   
  27.  PRINT "Be seeing you.   "
  28.  PRINT "                +Warlock+ "
  29.  END  
  30.